home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_VB / VB_7DAYS.ZIP;1 / MKI.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-02-17  |  290 b   |  17 lines
  1. ' MKI.BAS
  2.  
  3. ' Miss MKI$? Here's a Visual Basic version.
  4.  
  5. FUNCTION MKI$ (I%)
  6.   TempI& = I%
  7.   IF TempI& << 0 THEN
  8.     TempI& = TempI& + 65536
  9.   END IF
  10.   Byte1% = TempI& \ 256
  11.   Byte2% = TempI& MOD 256
  12.   C1$ = CHR$(Byte1%)
  13.   C2$ = CHR$(Byte2%)
  14.   MKI$ = C2$ + C1$
  15. END FUNCTION
  16.  
  17.